﻿'Option Strict Off
Option Explicit On
Imports System

Imports System.Data.Common

Namespace F05_DSTableAdapters
    Partial Public Class F05_EditTableAdapter
        Inherits System.ComponentModel.Component

        Public Function GetDataByFilter(ByVal dataTable As F05_DS.F05_EditDataTable, ByVal SQLExpression As String) As Integer
            Dim OriginalCommandText As String
            OriginalCommandText = Me.CommandCollection(0).CommandText
            Try
                Me.CommandCollection(0).CommandText = SQLExpression
                Return Me.Fill(dataTable)
            Catch ex As Exception

            Finally
                Me.CommandCollection(0).CommandText = OriginalCommandText
            End Try
        End Function


    End Class

    Partial Public Class SumF05TableAdapter
        Inherits System.ComponentModel.Component

        Public Function GetDataByFilter(ByVal dataTable As F05_DS.SumF05DataTable, ByVal SQLExpression As String) As Integer
            Dim OriginalCommandText As String
            OriginalCommandText = Me.CommandCollection(0).CommandText
            Try
                Me.CommandCollection(0).CommandText = SQLExpression
                Return Me.Fill(dataTable)
            Catch ex As Exception

            Finally
                Me.CommandCollection(0).CommandText = OriginalCommandText
            End Try
        End Function


    End Class
End Namespace